home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
lsp
/
trace.data
< prev
next >
Wrap
Text File
|
1986-07-03
|
2KB
|
114 lines
#(
#!
(lisp::in-package 'user::lisp)
#!
(lisp::export '(lisp::trace lisp::untrace))
#!
(lisp::export 'lisp::step)
#!
(lisp::in-package 'lisp::system)
(lisp::optimize (lisp::safety 2) (lisp::space 3))
0
system::*trace-level*
system::*trace-list*
lisp::mapcan
#'system::trace-one
lisp::quote
(lisp::mapcan #'system::untrace-one system::*trace-list*)
#'system::untrace-one
lisp::*trace-output*
"The function ~S is not defined.~%"
"~S is a special form.~%"
"~S is a macro.~%"
system::traced
system::trace-call
"The function ~S is already traced.~%"
lisp::defun
(lisp::&rest system::args)
system::args
2
20
"~V@T~D> ~S~%"
"~V@T<~D ~S~%"
"The function ~S was traced, but redefined.~%"
"The function ~S is not traced.~%"
system::*step-level*
system::*step-quit*
system::*step-function*
system::*old-print-level*
system::*old-print-length*
lisp::*debug-io*
#\Newline
#\Return
lisp::let
lisp::block
lisp::unwind-protect
lisp::setq
lisp::return-from
lisp::if
lisp::let*
((system::*old-print-level* lisp::*print-level*) (system::*old-print-length* lisp::*print-length*) (lisp::*print-level* 2) (lisp::*print-length* 2))
(lisp::read-line)
(lisp::format lisp::*debug-io* "Type ? and a newline for help.~%")
(lisp::setq system::*step-quit* lisp::nil)
system::stepper
"~VT~S "
#\Space
#\Tab
#\n
#\N
#\s
#\S
#\p
#\P
:stream
:pretty
:level
:length
#\f
#\F
#\q
#\Q
#\u
#\U
#\e
#\E
#\r
#\R
#\b
#\B
system::*ihs-base*
system::*ihs-top*
system::*current-ihs*
"Stepper commands:~%~
n (or N or Newline): advances to the next form.~%~
s (or S): skips the form.~%~
p (or P): pretty-prints the form.~%~
f (or F) FUNCTION: skips until the FUNCTION is called.~%~
q (or Q): quits.~%~
u (or U): goes up to the enclosing form.~%~
e (or E) FORM: evaluates the FORM ~
and prints the value(s).~%~
r (or R) FORM: evaluates the FORM ~
and returns the value(s).~%~
b (or B): prints backtrace.~%~
?: prints this.~%"
"~V@T=~%"
"~V@T= ~S~%"
"~V@T& ~S~%"
1
lisp::proclaim
lisp::trace
lisp::untrace
system::trace-one
system::untrace-one
system::step-read-line
system::if-error
lisp::step
system::list-delq
lisp::read-preserving-whitespace
system::ihs-top
system::backtrace
)